home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / raversfilters / frame gradients < prev    next >
Text File  |  1999-06-15  |  899b  |  25 lines
  1. Category: Harry's Power Grads
  2. Title: Frame Gradients
  3. Copyright: Copyright 1997 by Harry@visca.com
  4. Author: Harry the Raver
  5. Filename: FramGrad.8bf
  6.  
  7. R:put(min(x*255/X,y*255/Y),0),put(min(255-x*255/X,y*255/Y),1),put(min(x*255/X,255-y*255/Y),2),put(min(255-x*255/X,255-y*255/Y),3),put(val(0,0,31),10),put(x<=X/2&&y<=Y/2?get(10)*get(0):x>X/2&&y<Y/2?get(10)*get(1):x<X/2&&y>Y/2?get(10)*get(2):get(10)*get(3),20),get(20)>ctl(3)?c:get(20)
  8.  
  9. G:put(val(1,0,31),11),put(x<=X/2&&y<=Y/2?get(11)*get(0):x>X/2&&y<Y/2?get(11)*get(1):x<X/2&&y>Y/2?get(11)*get(2):get(11)*get(3),21),get(21)>ctl(3)?c:get(21)
  10.  
  11. B:put(val(2,0,31),12),put(x<=X/2&&y<=Y/2?get(12)*get(0):x>X/2&&y<Y/2?get(12)*get(1):x<X/2&&y>Y/2?get(12)*get(2):get(12)*get(3),22),get(22)>ctl(3)?c:get(22)
  12.  
  13. A:a
  14.  
  15. ctl[0]: Scale Red
  16. ctl[1]: Scale Green
  17. ctl[2]: Scale Blue
  18. ctl[3]: Threshold
  19.  
  20. val[0]: 133
  21. val[1]: 133
  22. val[2]: 133
  23. val[3]: 255
  24.  
  25.